<%

Function torneio_ordenar(conexao, id, fase, nivel, clubes, total)

		
		str = "Select criterio FROM torneios_geral where id="&id
		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
				str = "Select * FROM criterios where id="&rs("criterio")
				Set rs = conexao_geral.Execute(str)	
				
				if not rs.eof then
				
						criterio = rs("ordem")
				
						if rs("desempate")="geral" then torneio_ordenar_geral conexao, id, clubes, total, criterio
						if rs("desempate")="ultimafase" then torneio_ordenar_ultimafase conexao, id, fase, nivel, clubes, total, criterio
				
				End If
		
		End If

End Function

Function torneio_ordenar_geral(conexao, id, clubes, total, criterio)

			str = "Select id_clube FROM torneios_clubes where id_torneio="&id&" order by "&criterio
			Set rs = conexao.Execute(str)
			
			DIM p, i, j
			j=0
			
			Do while not rs.eof 
					
					j=j+1
				  p=0		
					i=0
					Do while p=0 and i<total
						if clubes(i,0)=rs("id_clube") then
								clubes(i,2)=j
								p=1
						End If
						i=i+1
					Loop 
			
			rs.MoveNExt
			Loop


End Function

Function torneio_ordenar_ultimafase(conexao, id, fase, nivel, clubes, total, criterio)

		DIM condicao
		
		condicao="1=0"
		
			str = "Select id FROM torneios_grupos where status=2 and nivel="&nivel&" and fase="&fase&" and id_torneio="&id
			Set rs = conexao.Execute(str)
			
			Do while not rs.eof
			
					condicao=condicao&" OR id_grupo="&rs("id")
			
				rs.MoveNext
			Loop
			
			if not condicao="" then condicao="("&condicao&")"
		
		
			str = "Select id_clube FROM torneios_lista where "&condicao&" order by "&criterio
			Set rs = conexao.Execute(str)
			
			DIM p, i, j
			j=0
			
			Do while not rs.eof 
					
					j=j+1
				  p=0		
					i=0
					Do while p=0 and i<total
						if clubes(i,0)=rs("id_clube") then
								clubes(i,2)=j
								p=1
						End If
						i=i+1
					Loop 
			
			rs.MoveNExt
			Loop


End Function

%>